home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / stk-3.002 / stk-3 / STk-3.1 / Contrib / STk-wtour / lessons / radiobutton.stk < prev    next >
Encoding:
Text File  |  1995-12-12  |  377 b   |  9 lines
  1. ;; A set of radio button widgets
  2.  
  3. (define color-var1 #f)   ;; The variable to which radiobuttons are "connected"
  4.  
  5. (radiobutton '.b1 :text "Red"   :variable 'color-var1 :value "R" :anchor "w")
  6. (radiobutton '.b2 :text "Green" :variable 'color-var1 :value "G" :anchor "w")
  7. (radiobutton '.b3 :text "Blue"  :variable 'color-var1 :value "B" :anchor "w")
  8. (pack .b1 .b2 .b3 :fill "x")
  9.